(Fwrite_region): If FILENAME has no handler, see if VISIT has one.

diff --git a/src/fileio.c b/src/fileio.c
index b1066995ac505437cc37c6c5696457207cb295c3..b70f7121e8f319ece179ded3471e9f886c15b487 100644 (file)
--- a/src/fileio.c
+++ b/src/fileio.c
@@ -2803,6 +2803,9 @@ to the file, instead of any buffer contents, and END is ignored.")
   /* If the file name has special constructs in it,
      call the corresponding file handler.  */
   handler = Ffind_file_name_handler (filename);
+  /* If FILENAME has no handler, see if VISIT has one.  */
+  if (NILP (handler) && XTYPE (visit) == Lisp_String)
+    handler = Ffind_file_name_handler (visit);    
 
   if (!NILP (handler))
     {